COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00003 00002	delimiters ()
C00005 00003	def demochar(text ..)=
C00014 00004	% note: bug2.tmp shows the place where segment 2 gets screwed up
C00015 00005	tracingchoices:=1
C00020 00006	end
C00021 ENDMK
C⊗;
delimiters ();
def tracingall=tracingcommands:=3;
 tracingedges:=1; tracingtitles:=1; tracingequations:=1; tracingspecs:=2;
	tracingpens:=1; tracingchoices:=1; tracingstats:=2;
 tracingonline:=1;tracingoutput:=1;tracingmacros:=3 enddef;
%tracingall;

def down=(0,-1) enddef;
def up=(0,1) enddef;
def right=(1,0) enddef;
def left=(-1,0) enddef;
def angle primary d = (cosd d, sind d) enddef;

vardef z@#=(x@#,y@#) enddef;

edges e;
e=nulledges;

def draw expr x = addto e contour x withweight 1 enddef;
def erase expr x = addto e contour x withweight -1 enddef;

openwindow 1 from (0,0) to (400,450) at (-100,200);

smoothing:=1; autorounding:=3;

def next =
 display e on 1;
 shipout e;
 e:=nulledges;
 charcode:=charcode+1;
enddef;

hppp:=240/72.27;
vppp:=hppp;
charcode:=96;

h=v=4;

z1=(6h,0); z2=(0,8v); z3=(4h,11v); z4=(10h,8v); z5=(17h,9v); z6=(18h,2v);
z0=(9h,3v);
for n:=1 step 1 until 6: z[n]a-z0 = 2(z[n]-z0); endfor
def demochar(text ..)=
e:=nulledges;
numeric x[],y[],x[]a,y[]a;
charcode:=charcode+1;

z1=(6h,0); z2=(0,8v); z3=(4h,11v); z4=(10h,8v); z5=(17h,9v); z6=(18h,2v);
z0=(9h,3v);
for n:=1 step 1 until 6: z[n]a-z0 = 2(z[n]-z0); endfor

draw z1a..z2a..z3a..z4a..z5a..z6a..cycle;
erase z1..z2..z3..z4..z5..z6..cycle;

display e on 1;

charwd:=40h/hppp;
chardw:=40h;
shipout e;

enddef;
% note: bug2.tmp shows the place where segment 2 gets screwed up
tracingall;
demochar({1,0}..);
tracingchoices:=1;
show (0,0){angle 30}..(200,0){angle -60};
end